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-- MakelmageUtilities.Mesa Edited by Sandman on September 13, 1977 5:32 PM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
AUoFileDefs: FROM "altof i ledef s" , 
BFSDefs: FROM "bfsdefs", 
ControlDefs: FROM "controldefs" , 
DirectoryDers: FROM "directorydef s" . 
FrameDefs: FROM "framedefs", 
ImageDefs: FROM "imagedefs", 
InlineOefs: FROM " in! inedef s" , 
LoadStateDefs: FROM "LoadStateOef s" , 
MakelmageUtilDefs: FROM "makeimageutildef s" , 
MiscDefs: FROM "miscdefs", 
ProcessDefs: FROM "processdefs" , 
SegmentDefs: FROM "segmentdef s" , 
StringDefs: FROM "stringdef s" , 
SymDefs: FROM "symdefs", 
SystemDefs: FROM "systemdef s"; 

DEFINITIONS FROM ImageDefs, MakelmageUtilDefs; 

MakelmageUtil ities: PROGRAM 

IMPORTS DirectoryDefs, FrameDefs, LoadStateDefs. MiscDefs. SegmentDefs, 

StringDefs, SystemDefs 
EXPORTS ImageDefs, MakelmageUtilDefs 
SHARES ProcessDefs, SegmentDefs, ControlDefs, ImageDefs, MakelmageUtilDefs 

PUBLIC BEGIN 

— file requests 

RequestHead: POINTER TO FileRequest; 

InitFileRequest: PROCEDURE = BEGIN RequestHead ^ NIL; END; 

AddFileRequest: PROCEDURE [r: POINTER TO FileRequest] = 
BEGIN 

r. 1 ink <- RequestHead; 
RequestHead ♦• r; 
END; 

DropFileRequest: PROCEDURE [f: FileHandle] « 
BEGIN 

r: POINTER TO FileRequest; 
prev: POINTER TO FileRequest ♦- NIL; 
FOR r ^ RequestHead, r.link UNTIL r = NIL DO 
BEGIN 
IF r.file = f THEN 

IF prev = NIL THEN RequestHead ♦• r.link 
ELSE prev. link <- r.link; 
EXIT; 
END; 
prev ♦- r; 
ENDLOOP; 
END; 

ProcessfileRequests: PROCEDURE = 
BEGIN OPEN AUoFileDefs; 

checkone: PROCEDURE [fp: POINTER TO FP. dname: STRING] RETURNS [BOOLEAN] 
BEGIN 

ss: Str ingOef s . SubS tringDescr jptor <- [dname , , dname. 1 ength] ; 
r: POINTER TO F ileRequest; 
prev: POINTTR TO FileRequest *- NIL; 
FOR r ♦- RequestHead, r.link UNTIL r = NIL DO 
IF (WITH r Sri CCT FROM 

long => Sir i ngOef s . fqu i valen tSubS tr Jngs[@ss ,@name] . 
short => Str ingDefs . Fqu ivalen tStr i ng[dname . name] , 
fNOCASr => FALSE) THEN 
BEGIN 

IF r.file = NT! TflFN r.file *- SegmentDefs . Tnsertf i 1 e[ fp . r . access] 
fl SF r. f lie. fp ♦- fpt; 

IF prev = Nil THEN RequestHead ♦- r.link 
Fl SF prev . 1 ink <- r . 1 ink ; 
FNO 



makeimageutilities.mESA 24-0CT-77 18:38:25 Page 2 



ELSE prev <- r; 

ENDLOOP; 
RETURN[RequestHead = NIL] 
END; 

DirectoryDef s.EnumerateD i rectory [checkone]; 
END; 

— symbol tables 

RequestSymbolFiles: PROCEDURE =» 
BEGIN 

next, head: POINTER TO FileRequest *• NIL; 

BuildRequests: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] = 
BEGIN 

r: POINTER TO shortFileRequest ; 
p: POINTER TO FileRpquest; 
IF s. class = symbols THEN 

FOR p ^ head. p. link UNTIL p = NIL DO 
IF p. file = s.file THEN EXIT; 
REPEAT FINISHED => 
BEGIN 

r ♦- GetSpace[SIZE[shortFileRequest]]; 
rt ♦- Fi leRequest[ , , , short[ , ]] ; 
r.f ile <- s.file; 
r. 1 ink *- head; head ♦- r; 
END; 
ENDLOOP; 
RETURN[FALSE]; 
END; 
GetNames: PROCEDURE [fp: POINTER TO FP, s: STRING] RETURNS[BOOLEAN] = 
BEGIN 

r, prev: POINTER TO FileRequest; 
prev ♦• NIL; 

FOR r ♦- head, r.link UNTIL r = NIL DO 
IF fp. serial = r . fi le. fp . serial THEN 
BEGIN 
WITH r SELECT FROM 

short => name ♦■ GetString[s] ; 
ENDCASE; 
IF prev = NIL THEN head ♦- r.link 
ELSE prev . 1 ink <- r . 1 ink; 
AddFi leRequest[r]; 
EXIT; 
END; 
prev <- r; 
ENDLOOP; 
RETURN[head = NIL]; 
END; 
[] <- SegmentDef s. EnumerateFi leSegments[BundRequests] ; 
Di rectoryOef s . EnumerateDi recto ry [GetNames] ; 
END; 

-- bed file names 

GetBcdFileNames: PROCEDURE [nbcds: Configlndex] 
RETURNS [names: DESCRIPTOR FOR ARRAY OF STRING] = 
BEGIN 

nfound: Configlndex ♦■ 0; 

GetNames: PROCEDURE [fp: POINTER TO FP, s: STRING] RETURNS[BOOLEAN] = 
BEGIN 

FindBcd: PROCEDURE [config: Configlndex. bed: LoadStateDef s . BcdAddress] RETURNS [BOOLEAN] 
BEGIN 

IF fpt = bed. fp THEN 
BEGIN 

names[conf ig] ^ Ge tStr ing[s] ; 
nfound ♦- nfound + 1; 
RCTURN[TRUr]; 
END; 
RrTURN[rALSE]; 
END; 
[] *- I oadStaleDefs . rnumerateLoadStateBcds[recentf irst . TindBcd]; 
RrTURN[nfound = nbcds]; 
END; 
names ♦- DrSCRIPTOR[GeLSpace[nbcds] . nbcds]; 
MiscDefs . Se LB 1 ock[ BASF [names ] , Ge tS tr ing[" ( anon ) " ] , nbcds] ; 
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DirectoryDef s.Enumer ateDi recto ry[GetNames] ; 

RETURN[names]; 

END; 

— space allocation 

SpaceList: POINTER TO SpaceHeader ♦- NIL; 
SpacePointer: POINTER TO SpaceHeader; 
SpaceLeft: CARDINAL; 

InitSpace: PROCEDURE = BEGIN SpaceLeft ^ 0; END; 

GetSpace: PROCEDURE [n: CARDINAL] RETURNS [p: POINTER] = 
BEGIN 

newseg: DataSegmentHandle; 
IF n > SpaceLeft THEN 

BEGIN 

newseg ♦• SegmentDef s .NewDataSegment[SegmentDefs .Def auUBase, 1] ; 

SpacePointer ♦• SegmentDers.DataSegmentAddress[newseg] ; 

SpacePointer . 1 ink ♦■ SpaceList; 

SpacePointer . segment ♦- newseg; 

SpaceList ♦- SpacePointer; 

SpacePointer ♦• SpacePointer + SIZE[SpaceHeader] ; 

SpaceLeft ♦• AltoDefs .PageSize - SIZE[SpaceHeader] ; 

END; 
p ♦- SpacePointer; 
SpacePointer <- SpacePointer + n; 
SpaceLeft ♦- SpaceLeft - n; 
END; 

GetString: PROCEDURE [oldstring: STRING] RETURNS [newstring: STRING] = 
BEGIN 

i, length: CARDINAL: 

string: TYPE = POINTER TO MACHINE DEPENDENT REC0RD[1 ength .max! ength : CARDINAL]; 
length ^ oldstring . length ; 
newstring ♦- GetSpace[( length+5)/2] ; 
newstring . length <- length; 

LOOPHOLE[newstring , string] .maxlength ♦■ length; 
FOR i IN [0.. length) DO newstring[i] ♦- oldstring[ i ] ; ENDLOOP; 
RETURN; 
END; 

FreeAllSpace: PROCEDURE = 
BEGIN 

next: POINTER TO SpaceHeader; 
UNTIL SpaceList = NIL DO 

next ♦- SpaceList. 1 ink; 

SegmentDef S.Del eteDataSegment[SpaceLi St . segment] ; 

SpaceList ♦• next; 

ENDLOOP; 
END; 

-- image file management 

LockCodeSegment: PROCEDURE [p: ProcDesc] = 
BEGIN OPEN ControlDefs; 

FrameDefs.LockCode[ LOOPHOLE [p, Control L Ink]] ; 
END; 

UnlockCodeSegment: PROCEDURE [p: ProcDesc] = 
BEGIN OPEN ControlDefs; 

Segmen tDef s. Un 1 ock [ LOOPHOLE [REGISTER[GFTreg],grtp]t [p. g ft index]. frame . codesegment] ; 
END; 

KDSegment: PROCEDURE RETURNS [Ei 1 eSegmentllandle] = 
BEGIN OPEN SegmentDefs: 

DiskKDEile: EileHandle = NewE i le["D iskDescr ip tor" , Read, Def auUVers ion] ; 
EindKD: PROCEDURE [s: E i 1 eSogmen tMandl e] RETURNS [BOOLEAN] = 

BEGIN 

RETURN[s.f ile = DiskKDEile]; 

END; 
RE TURN [SegmentDefs . EnumerateF i leSegmen ts[E indKD]] ; 
END; 

DAofPage: PROCEDURE [file: EileHandle, page: PageNuinber] RETURNS [next: vDA] = 
BEGIN 
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cfa: CFA; 

buf: POINTER = SystemDef s .AnocatePages[l] ; 

cfa.fp ^ file.fp; 

cfa. fa ^ AUoFneDefs.FA[file.fp.1eaderOA.O,0]; 

next ♦• SegmentOefs . JumpToPage[Qcf a,page-l,buf ] . next; 

SystemDef s .Free Pages [buf] ; 

RETURN 

END; 

FilllnCAs: PROCEDURE [Image': POINTER TO ImageHeader, mapindex: MapIndexType . ca: POINTER] 
BEGIN 

i: CARDINAL; 
addr: POINTER; 
FOR i IN [0. .mapindex) DO 

addr ♦- SegmentDef s .AddressFromPage[Image.map[ i].page] ; 
THROUGH [0. .Image. map[i]. count) DO 
cat ♦• addr; 
ca <- ca + 1; 

addr <- addr + AUoDef s .PageSize; 
ENDLOOP; 
ENDLOOP; 
END; 

SwapOutUnlockedCode: PROCEDURE [f: GlobalFrameHandle] RETURNS [BOOLEAN] * 
BEGIN 

cseg: FileSegmentHandle ^ f . codesegment ; 

IF cseg . swappedin AND cseg. lock = THEN FrameDef s .SwapOutCode[f ] ; 
RETURN[FALSE] 
END; 

SwapOutUnlocked: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] = 
BEGIN 

IF s.lock = THEN SegmentDef s .SwapOut[s] ; 
RETURri[FALSE]; 
END; 

BashHint: PROCEDUr-.E [s: FileSegmentHandle] RETURNS [BOOLEAN] = 
BEGIN 

s.hint ♦• SegmentOefs .FileHint[da:Al toFileDefs .eofDA, page:0]; 
RETURN[FALSE]; 
END; 

BashFile: PROCEDURE [f: FileHandle] RETURNS [BOOLEAN] = 
BEGIN OPEN AltoFileDefs; 

f.open ♦- f . lengthval id ♦• f . lengthchanged ♦- FALSE; 
IF f.fp. serial # SN[1.0 , ,0 ,DirSN] THEN 

f.fp ^ FP[SN[1, 0,1, 177778,1777778], eofDA]; 
RETURN[FALSE]; 
END; 

PatchUpGFT: PROCEDURE = 
BEGIN OPEN ControlDefs; 
i: GFTIndex; 

sd: POINTER TO ARRAY [0..1) OF GFTIndex = RrGISTER[SDreg] ; 
GFT: POINTFR TO ARRAY [0..1) OF GFTItem = RrGISTER[GFTreg] ; 
FOR i IN [1. .sd[sGFTLength]) DO 

IF GFTt[i] = [frame: NULLFrame, epbase: 177777B] THEN 
GFTt[i] ♦- [frame: NULLFrame, epbase: 0]; 

ENDLOOP; 
RETURN 
END; 

In i tl oadStateGFT: PROCFDURE [initgft: LoadSta teGFT . merge: BOOLEAN, nbcds: Configlndex] = 
BTGIN OPFN ControlDefs, LoadStateDef s ; 
rgfi, cgfi: GFTIndex ♦- 0; 
J: Configlndex; 

sd: POINTFR TO ARRAY [0..1) Of GFTIndex = RrGISTFR[SDreg] ; 
GfT: POINTTR TO ARRAY [0..1) OF GFTItem = RFGISTfRfcFTreg] ; 
MiscDefs .SetBlock[ 

p: BASr[ in i tgf t] , v: Con f igGF I [con f ig : ConfigNull. gfi: 0], 1: sd[sGrTLeng th] ] ; 
If merge TflFN 

FOR rgfi IN [ 1 . . sd[sGFTLeng th] ) DO 

IF GrTT[rgfi] . frame ff NUI I Frame THEN i n i tgf t[rgf i ] ^ 

[config: 0, gfi: ( eg f i^cgf i+1 ) ] ; 
ENDLOOP 
riSE 
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FOR i IN [0..nbcds) DO 
cgfi ♦■ 0; 

FOR rgfi IN [1 . . sd[sGFTLength]) DO 
IF GFTt[rgfi]. frame # NULLFrame AND 

LoadStateDefs.MapReaUoConf ig[rgf ij.conf ig * 1 
THEN initgft[rgfi] <- [config: i, gfi: (cgf i*-cgf i+1)] ; 
ENDLOOP; 
ENDLOOP; 
END; 

NumberGFIInConf ig: PROCEDURE [initgft: LoadS tateGFT, con: Configlndex] 
RETURNS [ngfi: ControlDef s.GFTIndex] = 
BEGIN 

i: ControlDefs.GFTIndex; 
ngfi ♦- 0; 
FOR i IN [0. .LENGTH[initgft]) 00 

IF initgft[i]. config = con THEN ngfi ^ ngfi + 1; 

ENDLOOP; 
RETURN 
END; 

END. 



